﻿Namespace Classes
    Public Class NAluno
        Public Shared Function ConsultarLista(entidade As Aluno) As List(Of Aluno)

            Dim db As New DataClassesDataContext()

            Return db.Alunos.Where(Function(c) c.STAtivo = entidade.STAtivo).ToList()

        End Function
    End Class
End Namespace